home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
xtextitem16.t
< prev
next >
Wrap
Text File
|
1990-06-01
|
847b
|
18 lines
(herald xtextitem16 (env tsys (xlib interface)))
(DEFINE (MAKE-XTEXTITEM16) (CONS 'XTEXTITEM16P (MAKE-BYTEV 16)))
(DEFINE (XTEXTITEM16-CHARS X)
((LAMBDA (X Y) (CONS 'XCHAR2BP (MREF-POINTER X Y)))
(CHK-XTEXTITEM16P X)
0))
(DEFINE (XTEXTITEM16-CHARS! X Y)
((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-XCHAR2BP Z)))
(CHK-XTEXTITEM16P X)
0
Y))
(DEFINE (XTEXTITEM16-NCHARS X) (MREF-INTEGER (CHK-XTEXTITEM16P X) 4))
(DEFINE (XTEXTITEM16-NCHARS! X Y) (SET-MREF-INTEGER! (CHK-XTEXTITEM16P X) 4 Y))
(DEFINE (XTEXTITEM16-DELTA X) (MREF-INTEGER (CHK-XTEXTITEM16P X) 8))
(DEFINE (XTEXTITEM16-DELTA! X Y) (SET-MREF-INTEGER! (CHK-XTEXTITEM16P X) 8 Y))
(DEFINE (XTEXTITEM16-FONT X) (MREF-INTEGER (CHK-XTEXTITEM16P X) 12))
(DEFINE (XTEXTITEM16-FONT! X Y) (SET-MREF-INTEGER! (CHK-XTEXTITEM16P X) 12 Y))